inherited fmWorkDays: TfmWorkDays
  Left = 564
  Top = 290
  Width = 330
  Height = 605
  Caption = #1056#1072#1073#1086#1095#1080#1077' '#1076#1085#1080
  Constraints.MinHeight = 605
  Constraints.MinWidth = 320
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited sbBottom: TStatusBar
    Top = 544
    Width = 322
  end
  inherited Panel1: TPanel
    Width = 322
    Visible = False
    inherited BitBtn1: TBitBtn
      Left = 152
    end
    inherited BitBtn2: TBitBtn
      Left = 240
    end
  end
  object dbgWD: TcxGrid [2]
    Left = 0
    Top = 86
    Width = 322
    Height = 458
    Align = alClient
    TabOrder = 2
    object tvWD: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      OnCustomDrawCell = tvWDCustomDrawCell
      DataController.DataSource = dlgDS
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      OptionsCustomize.ColumnFiltering = False
      OptionsCustomize.ColumnGrouping = False
      OptionsData.CancelOnExit = False
      OptionsData.Deleting = False
      OptionsData.DeletingConfirmation = False
      OptionsData.Inserting = False
      OptionsView.NoDataToDisplayInfoText = '<'#1053#1077#1090' '#1076#1072#1085#1085#1099#1093'>'
      OptionsView.GroupByBox = False
      object tvWDWDDATE: TcxGridDBColumn
        Caption = #1044#1072#1090#1072
        DataBinding.FieldName = 'WDDATE'
        Options.Editing = False
        Width = 97
      end
      object tvWDDAYINWORD: TcxGridDBColumn
        Caption = #1044#1077#1085#1100'. '#1085#1077#1076'.'
        DataBinding.FieldName = 'DAYINWORD'
        Options.Editing = False
        Width = 58
      end
      object tvWDWDISHOLIDAY: TcxGridDBColumn
        Caption = #1042#1099#1093#1086#1076#1085#1086#1081'?'
        DataBinding.FieldName = 'WDISHOLIDAY'
        PropertiesClassName = 'TcxCheckBoxProperties'
        Properties.NullStyle = nssUnchecked
        Properties.ValueChecked = 1
        Properties.ValueUnchecked = 0
        Width = 62
      end
    end
    object dbgWDLevel1: TcxGridLevel
      GridView = tvWD
    end
  end
  object Panel2: TPanel [3]
    Left = 0
    Top = 45
    Width = 322
    Height = 41
    Align = alTop
    TabOrder = 3
    object Label10: TLabel
      Left = 1
      Top = 9
      Width = 29
      Height = 16
      Align = alCustom
      Caption = #1044#1072#1090#1072
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object eDate: TcxButtonEdit
      Tag = 11
      Left = 45
      Top = 6
      ParentFont = False
      Properties.Buttons = <
        item
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            0400000000008000000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFF0FFFFFFFFFFFFFF000FFFFFFFFFFFF00000FFFFFFFFFF0000000F
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
        end>
      Properties.MaxLength = 0
      Properties.ReadOnly = True
      Properties.OnButtonClick = eDatePropertiesButtonClick
      Properties.OnChange = eDatePropertiesChange
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -13
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = [fsBold]
      Style.LookAndFeel.SkinName = ''
      Style.Shadow = True
      Style.IsFontAssigned = True
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 0
      Width = 260
    end
  end
  inherited dlgDS: TDataSource
    DataSet = qWD
  end
  object qWD: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    CachedUpdates = True
    SQL.Strings = (
      'SELECT WD.*, CASE  EXTRACT (WEEKDAY FROM WD.WDDATE)'
      ' WHEN 0 THEN '#39#1042#1089#39
      ' WHEN 1 THEN '#39#1055#1085#39
      ' WHEN 2 THEN '#39#1042#1090#39
      ' WHEN 3 THEN '#39#1057#1088#39
      ' WHEN 4 THEN '#39#1063#1090#39
      ' WHEN 5 THEN '#39#1055#1090#39
      ' WHEN 6 THEN '#39#1057#1073#39
      'END AS dayinword'
      'FROM WORKDAYS WD'
      'WHERE WD.WDDATE BETWEEN :datebegin AND :dateend'
      'ORDER BY 2')
    UpdateObject = IBUpdateSQL1
    Left = 256
    Top = 88
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'datebegin'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'dateend'
        ParamType = ptUnknown
      end>
    object qWDWDID: TIntegerField
      FieldName = 'WDID'
      Origin = '"WORKDAYS"."WDID"'
      Required = True
    end
    object qWDWDDATE: TDateField
      FieldName = 'WDDATE'
      Origin = '"WORKDAYS"."WDDATE"'
    end
    object qWDWDISHOLIDAY: TIntegerField
      FieldName = 'WDISHOLIDAY'
      Origin = '"WORKDAYS"."WDISHOLIDAY"'
    end
    object qWDDAYINWORD: TIBStringField
      FieldName = 'DAYINWORD'
      ProviderFlags = []
      FixedChar = True
      Size = 2
    end
  end
  object IBUpdateSQL1: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  WDID,'
      '  WDDATE,'
      '  WDISHOLIDAY,'
      '  DAYINWORD'
      'from WORKDAYS'
      'where'
      '  WDID = :WDID')
    ModifySQL.Strings = (
      'update WORKDAYS'
      'set'
      '  WDISHOLIDAY = :WDISHOLIDAY'
      'where'
      '  WDID = :OLD_WDID')
    InsertSQL.Strings = (
      'null;')
    DeleteSQL.Strings = (
      'null;')
    Left = 288
    Top = 88
  end
end
